| Filename | (eval 1136)[/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm:78] |
| Statements | Executed 0 statements in 0s |
| Eval Invoked At | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm line 78 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | sub { | ||||
| 2 | my $context = shift || die "template sub called without context\n"; | ||||
| 3 | 3 | 6µs | my $stash = $context->stash; # spent 6µs making 3 calls to Template::Context::stash, avg 2µs/call | ||
| 4 | my $output = ''; | ||||
| 5 | my $_tt_error; | ||||
| 6 | |||||
| 7 | eval { BLOCK: { | ||||
| 8 | $output .= "<div class=\"gradient\">\n<h1 id=\"logo\"><a href=\"/cgi-bin/koha/mainpage.pl\">"; | ||||
| 9 | #line 2 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/cat-search.inc" | ||||
| 10 | $output .= $stash->get('LibraryName'); | ||||
| 11 | $output .= "</a></h1><!-- Begin Catalogue Resident Search Box -->\n<div id=\"header_search\">\n\n"; | ||||
| 12 | #line 5 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/cat-search.inc" | ||||
| 13 | $output .= $context->include('patron-search-box.inc'); | ||||
| 14 | $output .= "\n\n"; | ||||
| 15 | #line 15 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/cat-search.inc" | ||||
| 16 | if (($stash->get('CAN_user_circulate'))) { | ||||
| 17 | $output .= "\n<div id=\"checkin_search\" class=\"residentsearch\">\n <p class=\"tip\">Scan a barcode to check in:</p>\n <form method=\"post\" action=\"/cgi-bin/koha/circ/returns.pl\" autocomplete=\"off\">\n <input class=\"head-searchbox\" name=\"barcode\" id=\"ret_barcode\" size=\"40\" />\n <input value=\"Submit\" class=\"submit\" type=\"submit\" />\n </form>\n</div>\n "; | ||||
| 18 | } | ||||
| 19 | |||||
| 20 | $output .= "\n "; | ||||
| 21 | #line 24 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/cat-search.inc" | ||||
| 22 | if (($stash->get('CAN_user_catalogue'))) { | ||||
| 23 | $output .= "\n <div id=\"catalog_search\" class=\"residentsearch\">\n <p class=\"tip\">Enter search keywords:</p>\n <form action=\"/cgi-bin/koha/catalogue/search.pl\" method=\"get\" id=\"cat-search-block\">\n <input type=\"text\" name=\"q\" id=\"search-form\" size=\"40\" value=\"\" title=\"Enter the terms you wish to search for.\" class=\"head-searchbox form-text\" />\n <input type=\"submit\" class=\"submit\" value=\"Submit\" />\n </form>\n </div>\n "; | ||||
| 24 | } | ||||
| 25 | |||||
| 26 | $output .= "\n \n <ul>\n "; | ||||
| 27 | #line 27 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/cat-search.inc" | ||||
| 28 | if (($stash->get('CAN_user_circulate'))) { | ||||
| 29 | $output .= "<li><a onclick=\"keep_text(0)\" href=\"#circ_search\">Check out</a></li>"; | ||||
| 30 | } | ||||
| 31 | |||||
| 32 | $output .= "\n "; | ||||
| 33 | #line 28 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/cat-search.inc" | ||||
| 34 | if (($stash->get('CAN_user_circulate'))) { | ||||
| 35 | $output .= "<li><a onclick=\"keep_text(1)\" href=\"#checkin_search\">Check in</a></li>"; | ||||
| 36 | } | ||||
| 37 | |||||
| 38 | $output .= "\n "; | ||||
| 39 | #line 29 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/cat-search.inc" | ||||
| 40 | if (($stash->get('CAN_user_catalogue'))) { | ||||
| 41 | $output .= "<li onclick=\"keep_text(2)\" class=\"ui-tabs-active\"><a href=\"#catalog_search\">Search the catalog</a></li>"; | ||||
| 42 | } | ||||
| 43 | |||||
| 44 | $output .= "\n </ul> \n</div><!-- /header_search -->\n</div><!-- /gradient -->\n<!-- End Catalogue Resident Search Box -->\n"; | ||||
| 45 | } }; | ||||
| 46 | if ($@) { | ||||
| 47 | $_tt_error = $context->catch($@, \$output); | ||||
| 48 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
| 49 | } | ||||
| 50 | |||||
| 51 | return $output; | ||||
| 52 | } | ||||
| 53 | |||||
| 54 | ; |